object Furetimyap: TFuretimyap
  Left = 215
  Top = 129
  BorderStyle = bsSingle
  Caption = #220'retim Giri'#351'i'
  ClientHeight = 466
  ClientWidth = 542
  Color = clBtnFace
  Font.Charset = TURKISH_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Label1: TLabel
    Left = 8
    Top = 40
    Width = 35
    Height = 14
    Caption = 'Seri No'
  end
  object Label2: TLabel
    Left = 8
    Top = 16
    Width = 49
    Height = 14
    Caption = 'Makina No'
  end
  object Label3: TLabel
    Left = 10
    Top = 93
    Width = 114
    Height = 14
    Caption = 'Makine '#304#231'indeki Par'#231'alar'
  end
  object Label4: TLabel
    Left = 208
    Top = 16
    Width = 47
    Height = 14
    Caption = 'Stok kodu'
  end
  object Label5: TLabel
    Left = 208
    Top = 40
    Width = 23
    Height = 14
    Caption = 'Cinsi'
  end
  object lblserino: TLabel
    Left = 269
    Top = 59
    Width = 35
    Height = 14
    Caption = 'Seri No'
    Visible = False
  end
  object Label6: TLabel
    Left = 9
    Top = 65
    Width = 63
    Height = 14
    Caption = 'Barebone No'
  end
  object Makinanok: TEdit
    Left = 72
    Top = 11
    Width = 129
    Height = 22
    Color = clInfoBk
    MaxLength = 10
    ReadOnly = True
    TabOrder = 0
  end
  object SeriNok: TEdit
    Left = 72
    Top = 35
    Width = 129
    Height = 22
    Color = clWhite
    TabOrder = 1
    OnExit = SeriNokExit
  end
  object grid1: TwwDBGrid
    Left = 5
    Top = 109
    Width = 527
    Height = 312
    DisableThemes = False
    Selected.Strings = (
      'serinos'#9'25'#9'Seri Numaras'#305#9'F'
      'stokkodu'#9'20'#9'Stok Kodu'#9'F'
      'makinano'#9'10'#9'Makina No'#9'F'
      'alinangaranti'#9'10'#9'Alinan Garanti'#9'F'
      'verilengaranti'#9'10'#9'Verilen Garanti'#9'F')
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    Color = clInfoBk
    DataSource = UretimBilgisiQS
    KeyOptions = [dgEnterToTab]
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
    ReadOnly = True
    TabOrder = 4
    TitleAlignment = taLeftJustify
    TitleFont.Charset = TURKISH_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Arial'
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = False
    UseTFields = False
  end
  object Button1: TButton
    Left = 6
    Top = 427
    Width = 97
    Height = 33
    Caption = 'Onayla'
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 112
    Top = 427
    Width = 105
    Height = 33
    Caption = 'Geri Al'
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 452
    Top = 427
    Width = 80
    Height = 33
    Caption = 'Kapat'
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    OnClick = Button3Click
  end
  object StokKoduk: TwwDBComboDlg
    Tag = 1
    Left = 268
    Top = 8
    Width = 152
    Height = 22
    ShowButton = True
    Style = csDropDown
    TabOrder = 2
    WordWrap = False
    UnboundDataType = wwDefault
    OnExit = StokKoduBul
  end
  object CinsiK: TwwDBComboDlg
    Tag = 2
    Left = 268
    Top = 32
    Width = 253
    Height = 22
    ShowButton = True
    Style = csDropDown
    TabOrder = 3
    WordWrap = False
    UnboundDataType = wwDefault
    OnExit = StokKoduBul
  end
  object edBarebone: TEdit
    Left = 72
    Top = 60
    Width = 129
    Height = 22
    Color = clInfoBk
    MaxLength = 10
    ReadOnly = True
    TabOrder = 8
  end
  object UretimBilgisiQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'makinano'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      'select dbo.getstokkodu(stokkod) as stokkodu,* from fatharhar '
      'where makinano=:makinano and MakinaNo<>'#39#39)
    Left = 456
    Top = 8
  end
  object UretimBilgisiQS: TDataSource
    DataSet = UretimBilgisiQ
    Left = 424
    Top = 8
  end
  object StokBulQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'serino'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      
        'select stokkodu=(select stokkodu from stok where stok.stokkod=fa' +
        'tharhar.stokkod),'
      
        '           cinsi=(select cinsi from stok where stok.stokkod=fath' +
        'arhar.stokkod),'
      
        '           grup=(select grupId from stok where stok.stokkod=fath' +
        'arhar.stokkod),'
      
        '           Ustgrup=(select UstgrupId from stok where stok.stokko' +
        'd=fatharhar.stokkod)'
      ' from fatharhar where serinos=:serino')
    Left = 456
    Top = 56
  end
  object GerialQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'serino'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'update fatharhar'
      'set makinano=null'
      'where serinos=:serino')
    Left = 456
    Top = 96
  end
  object OnaylaQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'serino'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'select * from fatharhar where serinos=:serino')
    Left = 456
    Top = 168
  end
  object MakinaQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'serino'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'select * from fatharhar where serinos=:serino')
    Left = 454
    Top = 137
  end
  object AlisFaturaBulQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'serino'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'serino2'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      
        'select top 1 bilisnogir,alinangaranti,Stokkod,siragir,1 as sayi ' +
        'from fatharhar '
      
        'where (makinano=:serino and ((Select GrupId from Stok Where stok' +
        'kod=Fatharhar.Stokkod)=6)) or '
      
        '(Serinos=:serino2 and ((Select GrupId from Stok Where stokkod=Fa' +
        'tharhar.Stokkod)=36))'
      '')
    Left = 456
    Top = 208
  end
  object FatharQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'id'
        DataType = ftString
        Size = 6
        Value = '900000'
      end>
    SQL.Strings = (
      'select * from fathar where id=:id')
    Left = 456
    Top = 248
  end
  object aqStokGirisBul: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'Siragir'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'BilisNo'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'Stokkod'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'Bilisno2'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'Stokkod2'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      
        'Select * from fathar Where Miktar=(Select Top 1 Miktar  From Fat' +
        'har Where Sira=:Siragir and  BilisNo=:BilisNo And Stokkod=:Stokk' +
        'od) and '
      'Bilisno=:Bilisno2 and Stokkod=:Stokkod2'
      '')
    Left = 455
    Top = 296
  end
  object aqStokGirisBul2: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'BilisNo'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'Stokkod'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'Bilisno2'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'Stokkod2'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      
        'Select * from fathar Where Miktar=(Select Sum(Miktar)  From Fath' +
        'ar Where BilisNo=:BilisNo And Stokkod=:Stokkod) and '
      'Bilisno=:Bilisno2 and Stokkod=:Stokkod2'
      '')
    Left = 457
    Top = 348
  end
  object aqStokGirisBul3: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'Siragir'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'BilisNo'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'Stokkod'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'Bilisno2'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'Stokkod2'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      
        'Select * from fathar Where Miktar=(Select Top 1 Miktar  From Fat' +
        'har Where Sira=:Siragir and  BilisNo=:BilisNo And '
      
        '(select ModelId from Stok where Stokkod=fathar.Stokkod)=(select ' +
        'ModelId from Stok where Stokkod=:Stokkod)) and '
      'Bilisno=:Bilisno2 and Stokkod=:Stokkod2'
      '')
    Left = 372
    Top = 350
  end
end
